program zadacha_3_4;
var a,b,c,d,x1,x2:real;
begin
	writeln('Введите коэффициенты квадратного уравнения a b c');
	readln(a,b,c);
	d:=b*b-4*a*c;
	if d<0 then
	begin
	//Если дискриминант отрицателен, то вывод сообщения,
	//что действительных корней нет, и вычисление комплексных корней.
	writeln('Действительных корней нет');
{Вычисление действительной части комплексных корней.}
	x1:=-b/(2*a);
{Вычисление модуля мнимой части комплексных корней.}
	x2:=sqrt(abs(d))/(2*a);
	writeln('Комплексные корни уравнения ',a:1:2,' x^2 + ',b:1:2,' x + ',c:1:2,' = 0 ');
{Вывод значений комплексных корней в виде x1±ix2}
	writeln(x1:1:2,'+i∗(',x2:1:2,')');
	writeln(x1:1:2,'−i∗(',x2:1:2,')');
	end
	else
	begin
{иначе вычисление действительных корней x1, x2}
	x1:=(-b+sqrt(d))/2/a;
	x2:=(-b-sqrt(d))/(2*a);
{и вывод их на экран.}
	writeln('Действительные корни уравнения ',a:1:2,' x^2 + ',b:1:2,' x + ',c:1:2,' = 0 ');
	writeln('X1 = ',x1:1:2,' X2 = ',x2:1:2)
	end 
end.
